home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch17 / Prism.ray < prev    next >
Text File  |  1999-07-06  |  2KB  |  72 lines
  1. Viewpoint(1000, 1.7, -0.35)
  2. AmbientLight(128, 128, 128)
  3. LightSource(0, -1000, 0, 255, 255, 255)
  4. LightSource(-100, -500, -100, 255, 255, 255)
  5. Sphere( 50, 100, 0, -100,
  6.   0.7, 0.2, 0.2, ' Ambient.
  7.   0.7, 0.2, 0.2, ' Diffuse.
  8.   20, 0.35,      ' Specular.
  9.   0, 0, 0,       ' Reflected.
  10.   3, 1, 1.4,     ' TransN, n1, n2.
  11.   0, 0, 0        ' Tansmission.
  12. )
  13. Face(4, ' Number of points
  14.    100, -100,  0,  ' Point 4
  15.   -100, -100, 50,  ' Point 3
  16.   -100,  100, 50,  ' Point 2
  17.    100,  100,  0,  ' Point 1
  18.   0.0, 0.0, 0.2, ' Ambient.
  19.   0.0, 0.0, 0.2, ' Diffuse.
  20.   20, 0.35,      ' Specular.
  21.   0, 0, 0,       ' Reflected.
  22.   3, 1, 1.4,     ' TransN, n1, n2.
  23.   0.9, 0.9, 0.9  ' Tansmission.
  24. )
  25. Face(4, ' Number of points
  26.    100,  100,  0,  ' Point 1
  27.   -100,  100,  0,  ' Point 2
  28.   -100, -100,  0,  ' Point 3
  29.    100, -100,  0,  ' Point 4
  30.   0.0, 0.0, 0.2, ' Ambient.
  31.   0.0, 0.0, 0.2, ' Diffuse.
  32.   20, 0.35,      ' Specular.
  33.   0, 0, 0,       ' Reflected.
  34.   3, 1, 1.4,     ' TransN, n1, n2.
  35.   0.9, 0.9, 0.9  ' Tansmission.
  36. )
  37. Face(4, ' Number of points
  38.   -100,  100,  0,  ' Point 1
  39.   -100, -100,  0,  ' Point 2
  40.   -100, -100, 50,  ' Point 3
  41.   -100,  100, 50,  ' Point 4
  42.   0.0, 0.0, 0.2, ' Ambient.
  43.   0.0, 0.0, 0.2, ' Diffuse.
  44.   20, 0.35,      ' Specular.
  45.   0, 0, 0,       ' Reflected.
  46.   3, 1, 1.4,     ' TransN, n1, n2.
  47.   0.9, 0.9, 0.9  ' Tansmission.
  48. )
  49. Face(3, ' Number of points
  50.   -100,  100,  0,  ' Point 1
  51.   -100,  100, 50,  ' Point 2
  52.    100,  100,  0,  ' Point 3
  53.   0.0, 0.0, 0.2, ' Ambient.
  54.   0.0, 0.0, 0.2, ' Diffuse.
  55.   20, 0.35,      ' Specular.
  56.   0, 0, 0,       ' Reflected.
  57.   3, 1, 1.4,     ' TransN, n1, n2.
  58.   0.9, 0.9, 0.9  ' Tansmission.
  59. )
  60. Face(3, ' Number of points
  61.    100, -100,  0,  ' Point 1
  62.   -100, -100, 50,  ' Point 2
  63.   -100, -100,  0,  ' Point 3
  64.   0.0, 0.0, 0.2, ' Ambient.
  65.   0.0, 0.0, 0.2, ' Diffuse.
  66.   20, 0.35,      ' Specular.
  67.   0, 0, 0,       ' Reflected.
  68.   3, 1, 1.4,     ' TransN, n1, n2.
  69.   0.9, 0.9, 0.9  ' Tansmission.
  70. )
  71.  
  72.